home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / winpas.zip / GOTOES.PAS < prev    next >
Pascal/Delphi Source File  |  1990-10-09  |  933b  |  66 lines
  1. program Gotoes( input, output );
  2.  
  3. procedure test;
  4.  
  5. procedure Gotoes2; forward;
  6.  
  7. procedure Gotoes1;
  8. label
  9.    0, 1, 2, 3, 4, 5, 6;
  10. var
  11.    ch : char;
  12. begin
  13.    0:
  14.    if keypressed then
  15.       begin
  16.       ch := readkey;
  17.       Gotoes2;
  18.       goto 6;
  19.       end
  20.    else
  21.       goto 5;
  22.  
  23.    1: writeln( 'line 1' );
  24.    writeln;
  25.    goto 0;
  26.    2: writeln( 'line 2' );
  27.    goto 1;
  28.    3: writeln( 'line 3' );
  29.    goto 2;
  30.    4: writeln( 'line 4' );
  31.    goto 3;
  32.    5: writeln( 'line 5' );
  33.    goto 4;
  34.  
  35.    6: writeln;
  36. end;
  37.  
  38. procedure Gotoes2;
  39. var
  40.    i : integer;
  41. label
  42.    11, 12, 13, 14, 15, 16;
  43. begin
  44.    11: writeln( 'line 1-2' );
  45.    12: writeln( 'line 2-2' );
  46.    13: writeln( 'line 3-2' );
  47.    14: writeln( 'line 4-2' );
  48.    15: writeln( 'line 5-2' );
  49.    writeln;
  50.  
  51.    if keypressed then 
  52.       goto 16
  53.    else
  54.       goto 11;
  55.  
  56.    16: writeln;
  57. end;
  58.  
  59. begin
  60.    gotoes1;
  61. end;
  62.  
  63. begin
  64.    test;
  65. end.
  66.